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- TITLE rye 
-IDENT 'V04=000" 


SRAAREAAAAEAAEAAAAAAAAAAEAAAAAAAAAAEAAAAARAAAAAAAAAAAAAAAAAAAEAAAARERAAAAATAAAAEREES 


V03-004 NPK3029 N. Kronenberg 22-Jul-1983 
Eliminate copy of interval count register (for time 
stamp) in trace buffer entries in favor of logging 
POT address. 


v03-003 NPK3024 N. Kronenberg 19-Apr-1983 
Modified queue checker to check header soft interlock 

on every element check and to put a code into R 
to show time of failure for other than maximum_number 
of ener es found - queue. Codes are: -1/-2/-3 for 
back Link to previous entry broken/structure type 
wrong/soft Link cleared respectively. 
gnerpeces maximum number of queue entries tolerated 


thet LRP identification and address checks to allow 
variable network header sizes. 


v03-002 NPK2016 N. Kronenberg 18-Mar-1982 
Fixed .TITLE 


NOU EWR OC ODO NOA UNE WIR 0 OD NAME WIN OOD NAN E WWM MO OOD NOAU EWN S@ OWOONOUS wn 


oo 
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oo 
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09 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
0 3* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
BS :* ALL RIGHTS RESERVED. * 
$ ® 
0900 3* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
00 3* ONLY IN ACCORDANCE WITH THE T n F SUCH LICENSE AND WITH THE * 
9808 3* INCLUSION OF THE NABOVE COPYRIGHT N OTICE. THIS SOFTWARE OR ANY OTHER * 
000 :® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
000 3* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
909 i TRANSFERRED. * 
bY x 
0000 z* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 3* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 :* CORPORATION. * 
My ® 
0000 :* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3008 :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
0000 | pnceaeedsnqneneheosnenssoneronersennnansennsennnsensenesenenesqneneongnesees 
0 3 
0000 p++ 
0000 g 
0000 3 FACILITY: 
0000 3 
9000 : VAX/VMS EXECUTIVE, 1/0 DRIVERS 
0000 : ABSTRACT: 
: AUTHOR: N. KRONENBERG, MAY 1981 
0000 3 
0000 : MODIFIED BY: 
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five ty INTERLOCKED QUEUE MONITOR ROUTINES et 7 80; :16:49 CDRIVER.SR RCIPAMON AMONIT.MAR;1 . 3) | 
U6 -SBTTL INTERLOCKED QUEUE MONITOR ROUTINES 
“SBTTL QUEUE MONITOR CONTROL FLAGS 


y _MONSFLAGS is a bit mask of control flags. 


$0 
1 
tears: 
00000001 0 . 5 -LONG 1 : Default is queue checks disabled 
ae 
4 8 : Flag definitions: 
004 9; 
4 9 90 
00000001 04 91 MONSM_QCHK = 4 
00000000 0004 92 MONSV_QCHK = 
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viet = CHKQ MACRO AND CONTROL Breer Sbs Boileses FORIVER.caeseamoniseman:: | aae 
4 9 .SBTTL - CHKQ MACRO AND CONTROL 
4 95 "SBTTL = FLAGS LONGWORD 


s@ 
; Macro CHKQ generates inline code for checking a relative queue, 


r . 
a 3 Inputs: 
Boe : R3 “Addr of Q header or entry 
3 ; Outputs: 
se 3 RO-R2,R5 “Destroyed 


eMACRO CHKQ,?LOOP,7ERR,?70K,?LOCK, 7LOWERIPL, 7TYPOK, 7ERR1, 7ERR2, 7ERRS 
MOVL ae oRe ; Get copy of Listhd addr 


0004 CLRL ; Zero entry counter 

0004 DSBINT : Disable interrupts 

0004 

0004 LOCK: 

$49 BBSSI #0,(R3),LOCK ; Lock queue before reading 
004 LOOP: 

49 MOVL R2,R5 ; Save addr of this entry 

0004 MOVL (R2),RO ; Get offset to next entry 

0004 BICL #1 RO : Clear interlock bit 

0004 MOVAB (R2)CROJ,R2 ; Get addr of next entry 

0004 MOVL 4(R2),RO 3; Get back Link from this entry 

MOVAB a Se ae 3; Compute prev entry addr 
0004 L  RO,R ; Computed addr = saved? 


ERR1 ranch if not 

CMPL §R2,R3 ; Back at start? 
K ; Branch if so 

CMPB PPDSB_TYPE(R2) ,#DYNSC_C10G 3; CI dg? 


; Br 
CMPB) =PPDSB_TYPE(R2) ,ADYNSC_CIMSG ; CI msg? 
; Branch if not 


0004 BNEQ RR $ 
0004 TYPOK: BBC #0, (R3) ,ERR3 ; Branch if somebody grabbed soft 
0004 ; _interlock while we had it | 
0004 AOBLSS #63,R1,L00P ; Else check max count and continue 
Boe BRB ERR :; Branch if max count expired 
004 ERR1: MNEGL #1,R1 ; Set error code to bad blink 
Oba BRB ERR ; Join common error handling 
ERR2: MNEGL #2,R1 ; Set error code to bad struc type 
BRB ERR ; Join common error handling 


ERR3: MNEGL #3,R1 ; Set error code to broken soft lock 


ERR: 
MOVL #1,@PDTSL_PMC(R4) ; Min port to prevent further queue 


3 operations by port 
BUGCHECK BADQHDR Notify debugger 


OOD NAME AN OS ODA EWN OOD NAMEN $9 ODNOAU EWN (0 ODNOAUE WN" O OONO 
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- FLAGS LONGWORD 


1 

1 OK: 

: ? BBCCI #0,(R3),LOWERIPL 
! 5 COMER IPL ust 

139 

is 

1 ~ENDM CHKQ 
160 

182 sHow 

188 - 

164 

165 
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3; Check succeeded 
; Unlock queue for port 


; Enable interrupts again 
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-SBTTL = MONSCHKQ, CHECK ALL Q°S ON THE PORT 


3@ 
: Checks all port queues (designed to be fast rather than short). 
Inputs: 


; RG “Addr of PDT 
; Outputs: 
: RO, condition codes -Destroyed 
-ENABL LSB 
MONSCHKQ: : 
BBS #MONSV_QCHK,=- ; Branch if checking queues 
MONSFLAGS ,CHKQ_ALT ; _is enable 
BRW 208 3; Else skip whole chedk 
CHKQ_ALT: ; Entry for MONSCHKQ_POST 
PUSHL R5 ; Save registers... 
PUSHL R3 3 
PUSHL R2 : 
PUSHL R11 : 
MOVAL PDTS$Q_COMQL(R4),R3 : Get addr of 1st command Q 
CHKQ 3: Verify 
MOVL R3,R2 3; Get copy of Listhd addr 
CLRL RI : Zero entry counter 
DSBINT oe 3; Disable interrupts 
FPR S*#PRS$_IPL,=(SP) 
MFPR = S*#PRS_IPL, 
-ENDC 
IF B 
ATPR #31,S*#PRS_IPL 
MTPR =, S*#PRS_IPL 
-ENDC 
300038: ; 
BBSSI #0,(R3),30003$ ; 30003$ queue before reading 
30000$: 


; Save addr of this entry 


Get offset to next entry 
Clear interlock bit 
Get addr of next entr 


Co te prev entry addr 
founane Peaie = saved? 
Branch if not 


DRIVER.SRCJPAMONIT.MAR; 1 


Get back Link from this entry 
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53 a 4 CMPL 3; Back at start? 
3¢ OY ks BEQL 3003s Branch if so 
3B 0 OOA A2 94 047 CMPB Ht : TYPE (R2) ,ADYNSC_ eshe ; a dg? 
0 1 48 BEQL 300058 ; Branch if so 
xc OA ag 73 ped area 44+ 4 TYPE(R2) ,ADYNSC_CIMSG ; - ms "i a 
; Branc 
10 63 tf tf 033 30005$: BBC Ht O0075 30008$ ; Branch if sopepody grabbed soft 
Bee ; interlock while we had : 
CD 51 SF F2 0057 AOBLSS $65.81 R1,30000$ ; Else check max count and com inuc 
OD 171 He BRB ; Branch if max count expire 
51 01 05D 30006$: MNEGL ; Set error code to bad blink 
08 ff Boee BRB $h601s 3 Join common error handling 
51 O¢ CE O0¢e 30007$: MNEGL #2,R1 ; Set error code to bad struc type 
0 11 p06 BRB 306018 ; Join common error handling 
| 8 8 Baer 30008$: MNEGL #3,R1 ; Set error code to broken soft 30003$ 
006A 30001$: 
00E8 D4 «=601)=—s«i#DOs«€O06A MOVL #1,@PDTSL_PMC(R4) ; Min port to prevent further queue 
OO06F 3 operations by port 
Beer | era ey he 3; Notify debugger 
006F éspw ERRSBUGCHE CKHE 
OO6F BUG_CHECK BADQHDR 
006F FF 
FF8E* 30 OO06F BSBW ERRSBUGCHECK 
007 BUG. CHECK BADQHDR, TYPE=FATAL 
FEFF 007 «WORD “XFEFF 
00° ** 007 T LIF IDN <FATAL>,<FATAL> , .WORD BUGS$_BADQHDR!4 f 
n076 LIF DIF <FATAL>,<FATAL> , .WORD BUGS_ BADQHDR / 
*'76 ~ENDC 
076 
0076 30002$: 3; Check succeeded 
0063 OO €7 8378 BBCCI #0,(R3),30004$ ; Unlock queue for port 
007A 70004$: 
Boon ENBINT , : Enable interrupts again 
00" 8& ODA 007A TPR (SP)+,S*#PRS_IPL 
807 MTPR ——-_ , S*#PRS_IPL 
0070 -ENDC 
0070 
7D 
i 
53 08 co 7D 3=—:195 Avot #8,R3 3 Step to 2nd command Q 
88 0 196 CHK ; Verify 
52 53 00 novi R3,R2 : Get copy of Listhd addr 
51 D4 CLRL_ RI ; Zero entry counter 
ope DSBINT - 3; Disable interrupts 
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7E 0’ a 44 S“*#PR$_IPL,=(SP) 
MFPR S*#PRS_IPL, 
‘a 
00" 1F DA 3 MTPR #31,S°APRS_IPL 
88 oIFF 
088 MTPR =, S*#PRS_IPL 
088 ~ENDC 
088 
088 
pee 300128: 
FC 63 «=600—t—s«éEK +14 BBSSI #0,(R3),30012$ ; 30012$ queue before reading 
Soar 30009$: 
oo a 44 MOVL R2,R5 ; Save addr of this entry 
50 62 00 0092 MOVL (R2),RO 3; Get offset to next entry 
50 01 CA 009 BICL #1,R6 : Clear interlock bit 
52. 6240 9E 0098 MOVAB (R2)CROJ,R2 : Get addr of next entry 
50 04 A2 00 009C MOVL 4(R2),RO ; Get back Link from this entry 
50 6240 9E Q0A0 MOVAB NT acai 3; Compute prev entry addr 
55 50 Di O0A4 CMPL RO,R ; Computed addr = saved? 
18 12 OOA7 BNEQ 306158 : Branch if not 
53 52 D1 QOA9 CMPL fs Rs ; Back at start? 
2F 613) «=~(OOAC BEQL 306118 Branch if so 
38 «OA A2 91 = OOAE CMPB PPD$B_TYPE(R2) , ADYNSC _c1b6 C1 dg? 
06 13 0082 BEQL 014 anch if so 
3¢ OA A2 91 00B4 CMPB PPDS$B_TYPE(R2) ,ADYNSC _CIMSG ; Cl msg! 
OF 12 0088 BNEQ 300168 3; Branch if not 
10 63 00 €1 OOBA 30014$: BBC #0,(R3),30017$ ; Branch if somebody grabbed soft 
OQOBE : interlock while we had it 
CD 51 3F 06 F2.—s« OBE AOBLSS #63,R1,30009$ 3; Else check max count and sentttes 
oe TT Bace BRB 300108 ; Branch if max count expired 
+. OG CE O00C4 30015$: MNEGL #1,R1 ; Set error code to bad blink 
08 11 oper BRB 306108 ; Join common error handling 
51 4 CE 00C9 30016$: MNEGL #2,R1 ; Set error code to bad struc type 
0 11 poet BRB 306108 3; Join common error handling 
51 03 CE gece 30017$: MNEGL #3,R1 ; Set error code to broken soft 30012% 
ot 30010$: 
00E8 D4 «=6—01—Ss—s«éN D1 MOVL #1,@PDTSL_PMC(R4) : Min port to prevent further queue 
0D6 3 operations by port 
006 CYECNECS BADQHOR ; Notify debugger 
i IDN ,NONFATAL 
D6 ésbu ERRSGUGCHE CKNE 
+ BUG_CHECK BADQHDR 
FF27" 30 0006 BSBW ERRSBUGCHECK 
dD9 BUG_CHECK BADQHDR, TYPE=FATAL 
FEFF 00D9 <WORD = “XFEFF 
0004 00DB LIF IDN <FATAL>,<FATAL> , .WORD BUGS$_BADQHDR !4 
00DD eLIF DIF <FATAL>,<FATAL> , .WORD BUGS~ _BADQHDR 
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DD ~ENDC 
3 
44 30011$: 3; Check succeeded 
00 63 OO €7 BD0 BBCCI #0,(R3),30013$ ; Unlock queue for port 
SOF] 30013$: 
ORE ENBINT - ; Enable interrupts again 
00° 8E DA BoEs MTPR (SP)+,S*#PRS_IPL 
OE4 oIFF 
Beet MTPR »S“#PRS_IPL 
0E4 ~ENDC 
QOES 
O0E4 
ta 
Q0E4 
53 18 CO O0E4 197 ADDL #24,R3 ; Step to response Q 
BoES 198 CHKQ : Verify 
52 53 00 O0E7 MOVL R3,R2 ; Get copy of Llisthd addr 
51 D4 OQOEA CLRL_ R1 ; Zero entry counter 
N0EC DSBINT ; Disable interrupts 
OOEC IF B 
7E 00° DOB OOEC MFPR S*#PRS$_IPL,=-(SP) 
OOEF ~IFF 
OOEF MFPR S*#PR$_IPL, 
OOEF ~ENDC 
OOEF ~1F B 
00' 1F DA OOEF MTPR -#31,S*°#PRS_IPL 
OOF 2 a IFF 
One MTPR ,S*#PRS_IPL 
OOF ~ENDC 
OOF 
OOF 2 
OOF 2 30021$: 
FC 63 0 «=6©6000~—t—«éEGK aor e BBSSI #0,(R3),30021$ ; 30021$ queue before reading 
OOF 6 30018$: 
S$ S2 0 Obes MOVL R2,R5 ; Save addr of this entry 
5 62 00 O0F9 MOVL (R2),R0 3; Get offset to next entry 
01 CA OOFC BICL #1 6 : Clear interlock bit 
52 624 43 OF F MOVAB (R2)CRO oR2 3; Get addr of next entry 
50 O4A D 193 MOVL 4(R2),R : Get back Link from this entry 
50 6240 9E 01 MOVAB (R2)ERO RO : Compute prev entry addr 
55 50 Di 0108 CMPL = RO,R ; Computed addr = saved? 
18 12 010 BNEG 306248 : Branch if not 
53 5 D1 011 CMPL R 8 ; Back at start? 
13 011 BEQL 300208 ; Branch if so 
38 «620A A2 «(910115 CMPB OPP ppose TYPE(R2) ,MDYNSC_CIBG ; CI dg? 
13 0119 BEQL Obes 3 Or anch if so 
3C)0ClC«CDA A 91 118 CMPB Sp Oe TYPE(R2) ,ADYNSC_CIMSG ; _ nso? 
8 1 11F BNEQ 3002 ; : Branch if 
10 63 0 € 121 30023$: BBC #0, (R3),30026$ F eckoth if baaabede grabbed soft 
1 2 : interlock while we had it 
cD 51 «33F~ 6F2 «CT AOBLSS #63,R1,30018$ ; Else check max count and continue 


= MONSCHKQ, CHECK ALL Q'S ON THE PORT 
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BRB 30019$ ; Branch if max count expired 
MNEGL #1,R1 ; Set error code to bad blink 
BRB =: 306198 : Join common error handling 
MNEGL $3 R1 ; Set error code to bad struc type 
BRB 30619$ ; Join common error handling 
MNEGL #3,R1 ; Set error code to broken soft 30021$ 
MOVL #1,@PDTSL_PMC(R4) 3; Min port to prevent further queue 
3 operations by port 
BUGCHECK BADQHDR 3; Notify debugger 
olf DN ,NONFATAL 
BSBW _ERRSBUGCHECKNF 
BUG_CHECK BADQHDR 
BSBW _ERRSBUGCHECK 


BUG_CHECK BADQHDR, TYPE=FATAL 
WORD “XFEFF 


"LIF IDN <FATAL>,<FATAL> 
LIF DIF <FATAL>,<FATAL> 


- ENDC 


- «WORD 
- «WORD 


BUG$_BADQHDR! 4 
BUG$~BADQHDR 


3; Check succeeded 


BBCCI] #0, (R3),30022$ 


ENBINT : 3 
R (SP) +,S*#PRS_IPL 
: ,S*#PRS$_IPL 


MOVL = PDTSL_DFQHDR(R4) ,R3 : 
CHKG ; 
MOVL R3,R2 ; 
CLRL RI ; 
DSBINT ; 
IF B 
FPR S*#PRS$_IPL,-(SP) 
MFPR © S*#PRS_IPL, 
.ENDC 
-1F B 
TPR #31,S*#PRS_IPL 
MTPR =, S*#PRS_IPL 
ENDC 


3; Unlock queue for port 


Enable interrupts again 


Get addr of da free Q 
Verify 


Get copy of Listhd addr 
Zero entry counter 
Disable interrupts 


—~ 
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158 
136 
158 30030$: 
FC 63 «=©6(00—t—s«édES 138 BBSSI #0,(R3),30030$ : 30030$ queue before reading 
O13 30027$: 
a F R2,R5 :; Save addr of this entry 
50 62 00 188 MOVL (R2),RO ; Get offset to next entry 
50 01 CA 016 BICL #1 RO : Clear interlock bit 
52. 624 168 MOVAB (R2)CROJ,R2 : Get addr of next entry 
9 04 A 196 MOVL 4(R2) Re ; Get back Link from this entry 
0 624 — 01 MOVAB (R2)CROJ,RO : Compute prev entry addr 
7s FS 174 CMPL RO,R 3; Computed addr = saved? 
18 12 0177 BNEG  30633$ : Branch if not 
D1 0179 CMPL Be R3 3; Back at start? 
2F 613 «017¢ BEQL  30029s : Branch if so 
38 «OA A2 91 °«+O17E CMPB pPo se TYPE(R2) ,ADYNSC_CIDG ; CI dg? 
06 13 0182 BEQL 300328 3; Branch if so 
3xC OA A2 91 = 0184 CMPB = PPDS$B_TYPE(R2) ,ADYNSC_CIMSG ; C1 = 
OF 12 0188 BNEQ 300385 3; Branch if not 
1063 00 €1 OQO18A 30032$: BBC #0,(R3),30035$ ; Branch if somebody grabbed soft 
018E : interlock while we had it 
CD 51 «SF F2 8155 AOBLSS #63,R1,30027$ ; Else check max count and continue 
OD 11 $b53 BRB 30028$ ; Branch if max count expired 
51 01 CE 0194 30033$: MNEGL #1,R1 ; Set error code to bad blink 
08 11 bba BRB 306288 ; Join common error handling 
51 02 CE 0199 30034$: MNEGL #2,R1 ; Set error code to bad struc type 
03 11 Bide BRB 30628$ ; Join common error handling 
-) i | ee gies 30035$: MNEGL #3,R1 ; Set error code to broken soft 30030$ 
O1AT 30028$: 
O0E8 D4 «86001 =—0s«éO—OAI MOVL #1,@PDTSL_PMC(R4) ; Min port to prevent further queue 
01A6 3; operations by port 
01A6 BUGCHECK BADQHDR ; Notify debugger 
O1A6 . IDN ,NONFATAL 
01A6 BSBW _ERRSBUGCHECKNF 
3148 BUG CHECK BADQHDR 
FES7° 30 O1A6 BSBW ERRSBUGCHECK 
Bing BUG_CHECK BADQHDR, TYPE=FATAL 
FEFF O1A9 <WORD “XFEFF 
0004° O1AB eLIF IDN <FATAL>,<FATAL> , .WORD BUG$_BADQHDR!4 
ne eITIF DIF <FATAL>,<FATAL> , .WORD BUGS_BADQHDR 
1AD -ENDC 
1AD 
1AD 
1AD 30029$: 3 Check succeeded 
00 63 OO €7 fs BBCCI #0,(R3),30031$ : Unlock queue for port 
181 30031$: 
181 ENBINT : Enable interrupts again 
181 IF B 


oan 
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00" 8€ DA 18} al 4 (SP)+,S*#PRS$_IPL 
1B4 MTPR =, S*#PRS_IPL 
1B4 -EN 
1B4 
1B4 
sae 
53 020C C4 00 0184 $i MOVL PDTSL_MFQHDR(R4) ,R3 ; Get addr of msg free Q 
Ht 4 02 CHKQ 3; Verify 
52 33 dO o189 MOVL R3,R2 3; Get copy of Listhd addr 
1 D4 O18C CLRL_ RI ; Zero entry counter 
01BE DSBINT ; Disable interrupts 
01BE If B 
7E 00° DB O1BE MFPR S“#PR$_IPL,-(SP) 
01C1 1FF 
01C1 MFPR  S*#PRS$_IPL, 
01C1 -ENDC 
01C1 IF B 
00° tF DA 01C1 MTPR #31,S*#PRS_IPL 
014 a 1FF 
014 MTPR =, S*#PRS_IPL 
01C4 ~ENDC 
01C4 
0164 
01C4 30039$: 
FC 63 00 £6 Bice BBSSI #0,(R3),30039$ ; 30039$ queue before reading 
ate 30036$: 
* 3 Save addr of this entry 
55 52 00 Bee MOVL R2,R5 S dd f thi 
50 62 00 0O1CB MOVL (R2),RO : Get offset to next entry 
50 O01 CA pice BICL ; Clear interlock 
52 6240 9€ 01D1 MOVAB (R2)CROJ,R2 3; Get addr of next entry 
50 04 A2 00 01D5 MOVL 4(R2),R0 : Get back Link from this entry 
50 6240 9E 0109 MOVAB (R2)CROJ,RO : Compute prev entry addr 
55 50 01 O1DD CMPL RO,RS 3; Computed addr = saved? 
18 12 O1E0 BNEQ S004es : Branch if not 
va’ aoe pies CMPL R2,R ; Back at start? 
2F 613'—«COOTE BEQL 3 $ ; Branch if so 
3B OA A2 91 aiee CMPB = PPDS$B TYPE (R2) ,ADYNSC_C1DG s GJ ? 
06 13 O1€B BEQL : Branch if so 
3¢ OA A2 91 gies CMPB 4444 TYPE(R2) ,ADYNSC_CIMSG ; Cl ag? 
OF 12 O1F1 BNEQ 300438 : Branch if not 
1063 OO €1 pire 30041$: BBC #0, (R3) , 300448 ; Branch if somebody grabbed soft 
ate ; interlock while we had it 
CD 51 SF 3 F2 OF? AOBLSS #63,R1,30036$ 3; Else check max count and continue 
OD 11 oir BRB 30087$ :; Branch if max count expired 
51 01 CE O1FD 30042$: MNEGL #1,R1 ; Set error code to bad blink 
08 11 00 BRB 306378 ; Join common error handling 
51 0¢ cE 09 30043$: MNEGL +f R1 ; Set error code to bad struc type 
0 11 83 BRB 30637$ ; Join common error handling 
s1.0lCSté«éiCK $5 30044$: MNEGL #3,R1 ; Set error code to broken soft 30039$% 


n~- 
sn 
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v04- = MONSCHKQ, CHECK ALL Q'S ON THE PORT 
A 
A 30037$: 
00E8 D4 «=601-tséO & MOVL #1,@PDTSL_PMC(R4) 3 Min port to peeves further queue 
F 3 operations by port 
OF BUGCHECK BADQHDR ; Notify debugger 
F If DN ,NONFATAL 
F BSBW _ERRSBUGCHECKNF 
OF ee BADQHDR 
FDEE’ 30 OF BSBW ERRSBUGCHECK 
1 BUG_CHECK BADQHDR TYPE=FATAL 
FEFF 001 <WORD = “*XFEFF 
0004' 14 -LIF ION XFATAL>, <FATAL> , .WORD BUG$_BADQHDR !4 
8 1 oLIF DIF <FATAL>,<FATAL> , WORD BUG$_BADQHDR 
0216 ~ENDC 
8518 
0216 
8g 18 30038$: 3; Check succeeded 
00 63 OO €7 8 BBCCI #0,(R3),30040$ 3 Unlock queue for port 
an 30040$: ; 
3 16 ENBINT — : Enable interrupts again 
00° 8E DA 03th at (SP)+,S*#PRS$_IPL 
021D MTPR =, S*#PRS_IPL 
021D ~ENDC 
3610 
021D 
0510 
51 8EDO $51 203 POPL R1 ; Restore registers 
26 8EDO 8553 204 POPL R 3 
: BEDO 022 $h2 POPL a é 
5 8ED0 8558 soe POPL 3 
05 $559 208 208: RSB ; Return 
022A 344 
022A 10 -DSABL LSB 


~~ 
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A 1 -SBTTL = MONSCHKQ_POST, CHECK ALL Q t3f AFTER 
A 1 -SBTTL = A QUEVE OPERATION 
A 518: 
A 18 checks att queues saving condition codes. Otherwise, it is the 
2 18 ; Same as the subroutine MONSCHKQ. 
A 1 
ry Y -ENABL LSB 
§ “ ¢ MONSCHKG_POST: 
00 «€1 5 A 4 BBC #MONSV_QCHK ; Branch if queue checking 
OC FOD1 CF 0 C 5 MONSFLAGS, 26$ : is disabled 
E oC § MOVPSL (SP) 3 Save PSL 
0000023C "EF of 0 PUSHAL 208 ; Save eons estes addr 
FDD1 0 0 8 BSBW CHKQ_ALT 3 Verify all quey 
02 8 ee $3 3; Restore con ition codes, continue PC 
05 093 $3 20$: RSB ; Return to caller 
023D 238 -DSABL LSB 
023D 34 
023D 235 
023D 236 
0230 237 
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Sty 7 Shi 1eia9 DRIVER. SRCJPAMONIT.MAR;1 . 
-SBTTL TRACE FACILITY 
-SBTTL = TRACE DEFINITIONS 
Misc data: 
RCSENABL:: 3; Low bit set/clear for 
3; enable/disable 
-LONG 0 ; Default is disabled 
RCSBUFFER:: ; Addr of trace buffer 
-LONG 0O $ 


The trace buffer is allocated from pool. It consists of a header 
and a series of fixed length entries. The occupied entries are 
maintained on a doubly Linked List, youngest is at the head of the 
List and the oldest is on the tail. 


SDEFINI TRC,GLOBAL 
“SAVE LOCAL _BLOCK 


. DIF <GLOBAL> <GLOBAL>,.ENABLE SUPPRESSION 
-PSECT $ABS$,ABS 

S$GBLINI GLOBAL 

IF IDN <GLOBAL> <GLOBAL> 

-MACRO SDEF SYM,ALLOC,SIZ 

LIF NB,SYM, SYM:: 


“1IF NB ALLOC, ALLOC SIZ 
“ENDM = SDEF 

"MACRO $EQU SYM, VAL 

SYM==VAL 

.ENDM © SEQU 

MACRO SVIELD1 MOD,SEP,SYM,SIZ,MSk 
-IIF -NB,SIZ, $1Z...=S1Z 
MOD'SEP'V_SyYM==BIT... 

.1IF =—-NB,SIZ, MOD'SEP'S_‘SYM==S12 
HLF NB.MSK, MOD'SEP'M~*SYM==<<<1aSIZ...>-1>aBIT...> 
BIT... =BIT...*$I]Z... 

-ENDH $viéLDi 

-1IF DIF _<GLOBAL> <LOCAL>,.ERROR ;ARG MUST BE "'GLOBAL’’,""LOCAL'’.OR NULL 
“MACRO $DEF | SYM,ALLOC,SI2 

“1IF NB,SYM, SYM: 

S1IF = NB ALLOC, ALLOC SIZ 
"ENDM = $D 

“MACRO $EQU  SYM,VAL 

SYM=VAL 

.ENDM — SEQU 

MACRO SVIELD1 MOD,SEP,SYM,SIZ,MSK 


v04~000 


00000000 


944 


00000004 


0000000C 


00000010 


00000060 


OSoooooooooo 


00000040 


00001810 


0000 
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- TRACE DEFINITIONS 


0 
1% 
38) : Trace entries consist of 


AX/VMS Macro v04-00 
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-SEP-1984 16:49 (CDORIVER.SRCJPAMONIT.MAR;1 
LIF NB,SIZ, SI1Z...=S12Z 
IF NB, SYM 
MOD'SEP'V_"SYM=BIT... 
LiF NB,SI1Z, MOD'SEP'S_' 
“bile NB,MSK, MOD'SEP'M_ *SYM=<<<1@SIZ...>-1>aBIT...> 
BIT...=B1T...¢#SIZ... 
-ENDM S$VIELD1 
eENDC 
-=0 
$ TRCSL ae st! -BLKL Addr ts next entry to use 


DEF 
LIF NB, TROSL_NEXTENT, 
LIF ~BLKL 


1 
TRCSL _NEXTENT: 
NB, .BLKL; 1 


DEF TRC$Q_QHDR 
LIF NB, TRO$Q_QHDR, 
LIF B,.BLKQ, 


ee ° 


-BLKQ 1 ; Queue header of entries 
TRC$Q_QHDR:: 
-BLKQ 1 


DEF RCSL_SPR 
LIF NB. TROSL_SPR, 
LIF NB he 


-BLKL 1 ; Spare longwd 
TRCSL_SPR:: 
-BLKL 1 


DEF TRCSC_FIRSTENT 
“tit NB, TROSC_FIRSTENT, 


ddr of first entry in table 
TRCSC _FIASTENT 


$SEQU TRCSC_ENTSIZ <96> ; 96 bytes per entry 
TRCSC_ENTSIZ==96 
$SEQU TRCSC_ENTCNT <64> : Room for 64 entries 


TRCSC_ENTCNT==64 
: oc Pu BUF SIZ <TRCSC_ENTCNT*TRCSC - $ 


BUF SI IZ+ eae _F IRSTENT> 
=TRCSC_ENTCNT*TRCSC_ENTSIZ+TRCSC_FIRSTENT 


SEQU R 
TRCSC_BUFS 


; Total buffer size 


SDEFEND TRC 
MACRO STRCDEF A 
-ENDM = =STRCDEF 
DIF <> <GLOBAL>,.DISABLE SUPPRESSION 


CROSS 
“RESTORE 


a common header. The structure type field 


~~ 
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4 3; contains a type code indisstive of the type of data in the entry. 
4 4; If the entry type offsets are read into sda, sda should be able to 
2 é 3; format the trace buffer for us. 
4 ° 
4 8 SOEFINI TRCE,GLOBAL 
rs 2; LOCAL BLOCK 
43 olIf DIF <GLOBAL> <GLOBAL>,.ENABLE SUPPRESSION 
4 PSECT $ABS$,ABS 
44 $GBLINI GLOBA ' 
944 If DN <GLOBAL> <GLOBAL> 
944 -MACRO p+ a hie eMC $12 
0944 : 
0944 T LIF huréce ALLOC $12 
944 NDM Sper 
944 * MACRO $SEQU SYM, VAL 
0944 SYMs=VA L 
0944 END $EQ 
0944 ARO SVIELDI MOD,SEP,SYM,SIZ,MSK 
0944 §12...21 
0944 LIF NB,SIZ, $1Z...=S12 
0944 wIF NB) SYM 
0944 MOD'SEP'V SYM==BIT... 
0944 LIF NB,S1Z, MOD'SEP *S_*SYM==SI7Z 
0944 elif NB,.MSK, MOD'SEP *m_ *SYM==<<<1aSI1Z...>-1>aBIT...> 
0944 ~ENDC 
0944 pg ET ay LETTS ae 
b9ee a 
0944 -llf DIF <GLOBAL> <LOCAL>,.ERROR ;ARG MUST BE ‘’GLOBAL'’,"‘LOCAL’’,OR NULL 
0944 “MACRO $DEF — SYM,ALLOC,SI2 
944 LIF ° e : 
944 “hate LOC, ALLOC $1Z 
0944 -ENDM $0 
0944 * ono — SEQU SYM, VAL 
0944 SYM=VAL 
0944 of NOM $EQU 
0944 MACRO SVIELDI MOD,SEP,SYM,SIZ,.MSK 
0944 §12...21 
0944 LIF NB,SIZ, SIZ...=SI12Z 
0944 a an 
0944 MOD SEP’ SYM=BIT... 
944 LIF NB.S17, *SEP'S_"SYM=SIZ 
944 LIF NB,MSK, *SEP"M_*SYM=<<<1@SI1Z...>-1>a@BIT...> 
0944 -ENDC 
0944 BIT... 2BIT...*SlZ.c.- 
0944 eENDM S$VIELD1 
944 ~ENDC 
944 
00000000 0944 .=0 
000 
00 89 


00 SDEF TRCESL_F -BLKL 1 > Fud Link 
3 LIF NB, TRCESL FL.  TRCESL_FL:: 
00000004 39 LIF NB,. -BLKL ~ 1 


mM 16 


DEF -BLKL 1 
LIF NB,TRCESL_PSL, TRCESL_PSL:: 
11F ON KL, -BLKL ~ 1 


ee 


0000001C 
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04 91 
92 SDEF TRCESL pt A sett 1 ; Back Link 
LIF NB, TRCESL_BL, TRCE LBL :: 
00000008 Bye ellF NB,.BLKL, ~BLKL 
93 
op $32 SDEF TRCESW SIZE -BLKW 1 : Size of an entry 
00 LIF «= NB, TRCESW_SIZE, TRCESW_SIZE:: 
0000000A 9 LIF NB, .BLKW, -BLKW ~~ 1 
SOA 3 SDEF TRCESB_TYPE BLKB st Ent de ( ) 
‘ ; Entry type code (struct type 
O0A -IIF NB. TRCESB_TYPE, TRCESB_TYPE: : whan " 
00000008 SoA LIF NB,.BLKB, -BLKB 1 
0008 97 
0008 98 SDEF TRCESB_SPR -BLKB 1 ; Spare byte 
0008 -lIF NB, TRCE$B_SPR, TRCESB_SPR:: 
0000000C¢ poee LIF B,.BLKB, -BLKB 1 
00C 
000C 299 
000C 00 SDEF TRCESL_TIME -BLKL 1 : Time entry was filled 
000C lif NB, TRCESL_TIME, TRCESL_TIME:: 
00000010 000C elif NB,.BLKL, -BLKL ~~ 1 
0010 
0010 01 
0010 02 SDEF TRCESL_PDT -BLKL 1 : Caller’s PDT addr (R4) 
0010 -LIF «= NB, TRCESL_PDT, TRCESL_POT:: 
00000014 0010 LIF - " -BLKL ~~ 1 
0014 
0014 03 
0014 04 SDEF TRCESC_BASE ; Start of type specific data 
0014 -lIF NB, TRCESC_BASE, TRCESC_BASE:: 
0014 LIF oe 
0014 
0014 305 
0014 06 ; 
0014 07 ; Entry type specific formats: 
0014 08 ; 
0014 09 ; Message (or datagram) trace: 
0014 10 ; 
0014 11 
00000014 a014 1 -=TRCESC_BASE 
Bi 14 $eQu DYNSC_TRCMSG <*x81> 
00000081 0014 DYNSC_TRCMSG==*Xx81 
0014 
14 a3 ; 
14 16 SDEF TRCESL_PC -BLKL 1 ; Caller’s PC 
14 -1IF «= NB, TRCESL_PC,  TRCESL_PC:: 
00000018 33 -llF NB,. ° -BLKL 1 
1 13 
a 18 $ TRCESL_PSL : Caller’s PSL 
1 
1¢ 
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1¢ 19 . 
ore 20 SDEF TRCESL_MSGADDR .BLKL 1 ; Addr of message being traced 
1¢ -LIF «= NB, TRCESL_MSGADDR TRCESL_MSGADDR: : 
00000020 001 S1IF = NB, .BLKL, -BLKL | 
1 } 
33) SDEF TRCESC_MSGDATA ; Start of message data 
0 “IE NB, TRCESC_MSGDATA, TRCESC_MSGDATA: : 
0 3 : | 
° 4; 
5 ; PC trace: 
0 8 Py 
8 
00000014 33 8 .=TRCESC_BASE 
dole 330 SEQU _DYNSC_TRCPC <*XB2> | 
00000082 0014 DYNSC_TRCPC=="X82 | | 
0014 331 | 
00000018 Bo 18 33 =, +4 : Caller’s PC | 
0000001¢ 0018 34 =. +4 : Caller's PSL | 
001C 36 SDEF TRCESL_RO -BLKL 1 ; Caller's RO-R5 
001¢ -IIF «=o NB, TRCESL_RO, TRCESL_RO:: | 
00000020 o01¢ -IIF =—sNB, .BLKL, -BLKL ~ 1 
0020 337 SDEF §TRCESL_R1 -BLKL 1 
0020 LIF NB,TRCESL_R1, TRCESL_R1:: 
00000024 900 -1IF = NB, .BLKL, -BLKL ~ 1 
0024 338 SDEF § TRCESL_R2 -BLKL 1 
0034 -1IF «= NB, TRCESL_R2, =TRCESL_R2:: 
00000028 99 ‘ -IIF = NB, .BLKL, -BLKL ~ 1 
0028 339 SDEF  TRCESL_R3 -BLKL 1 | 
0028 LIF NB,TRCESi_R3, TRCESL_R3:: | 
0000002¢ 00 8 -IIF = NB, .BLKL. -BLKL ~ 1 | 
002C 340 SDEF § TRCESL_R4 -BLKL 1 
002C ~-IIf  =-NB,TRCESL_R4, TRCESL_R4:: | 
00000030 O¢C -1IF = NB, .BLKL, -BLKL ~ 1 
0030 341 SDEF § TRCESL_RS -BLKL 1 | 
hs LIF NB,TRCESL_RS, TRCESL_RS:: 
00000034 930 -1IF = NB, .BLKL, -BLKL ~ 1 | 
$0 4 343 
00 4 34 SDEFEND TRCE 
4 .MACRO $TRCEDEF A 
0 4 -ENDM = STRCEDEF 
4 ata DIF <> <GLOBAL>,.DISABLE SUPPRESSION 
0000 38 “RESTORE 
0245 
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r ‘eS -SBTTL = TRACE INITIALIZATION 
4 47 3+ 
4 48 ; TRCSINIT allocates the trace buffer from pool, formats the header, 
ri 23: 3 and saves its address. 
4 51 ; Inputs: 
4 28 $ 
2 27 ; IPL -Fork IPL or greater 
: 55 ; Outputs: 
6 43 2§ : TRCSBUFFER -0 if insufficient we 7 no else 
0245 58 ; addr of start of buffe 
0245 59 ; TRCSENABL “Low bit clear if Inout Htetent memory; else 
0245 60 ; unchanged 
0245 61 ; ALL registers “Preserved 
0245 66 cs 
0245 6 
0245 64 -ENABL LSB 
0245 65 
0 $2 66 TRCSINIT:: 
F9 AF DS $508 68 TSTL TRCSBUFFER ; Is there alresdy ¢ a buffer (in case 
0248 69 3; there are multiple ports) 
46 12 0248 70 BNEQ 208 3; Branch if so 
3F 3 024A 71 PUSHR #*M<RO,R1,R2,R3 me R5> ; Save register 
51 1820 BF 3C O024¢ rg MOVZWL #TRCSC *BUFSIZ+16,R e Get totel butter size 
54 Q0000000'GF DE 0251 7 MOVAL “EXESGL UNONPAGEB™ ni : Fiddle with allocate 
gf DD 0258 74 PUSHL faa) : IPL to allow 
64 00000000'8F DB 025A 75 PR #PR$_IPL,(R4) 3 greater than fork IPL 
00000000'GF 16 0261 76 JSB GE XESALONONPAGED ; _and allocate pool 
4 BEDO 0267 77 POPL (R4 3 Restore. yor fPL 
06 EB 026A 78 BLBS RO, es 3; Branch i ¥ get pe 
CC AF O01 CA 026d 79 BICL 1 TRCSENABL ; Else disab Fe function 
oe OT 0 4 80 BRB 10$ > and return 
82 7C 0973 86 5$: CLRQ (R2)+ Clear out header 
51 00130000 8F C1 027 8 ADDL3 #<DYNSC_BUF10216>,R1, (nas Set size and type 
D4 027D 84 CLRL che lear out junk 
BE AF 52 DO O27F 385 MOVL R2,T FFER Save buffer address 
82 10 A DE oSe3 86 MOVAL reese COO EER cR2). (R2)+" s a. addr of ist entry 
e.. % DO 0287 87 MOVL RS »(R2) ; Set filled entry 
04 A2 § dO 0 ga $8 MOVL R2,4(R2) s th to empty 
3F BA of a 10$: POPR #*M<RO,R1,R2,R3,R4,R5> ; Restore registers 
05 90 if 20S: RSB 3; Return 
8 91 9 
291 94 -DSABL LSB 
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vOe-000 TRCSLOGMSG, Log a Message or Datagram ~$FE 1 382 0:16:49 (CDORIVER.SRCJPAMONIT.MAR;1 . (8) 
4, : ~SBTTL TRCSLOGMSG, Log a Message or Datagram 
91 98 ;+ 
91 38 ; This routine allocates an entry in the trace buffer and fills it with 
91 400 ; the PC of the caller, addr of the message, and first few longwords of 
4) ¢ 1 ; the message. 
91 & : 3; Inputs: 
91 404; 
91 405 ; R2 “Addr of message being traced 
91 $36 3 R4 -PDT addr 
91 $8 : 
91 408 ; Outputs: 
0291 409 ; 
91 410; ALL registers, PSL -Preserved 
91 411 :- 
91 216 
91 41 -ENABL LSB 
91 414 
8 4 $12 TRCSLOGMSG:: 
32 AB AF OO €1 0291 417 BC #0, TRCSENABL,10$ 3; Branch if trace disabled 
E DC 0296 418 MOVPSL =(SP) : Save PSL 
OOOOO02CB"EF DF 0298 419 PUSHAL 10$ : and PC of RSB from this routine 
O029E 420 DSBINT ; Raise IPL 
029E IF B 
7E 00° DB O29E MFPR S*#PRS$_IPL,-(SP) 
02A1 oIFF 
02A1 MFPR S*#PRS_IPL, 
02A1 -ENDC 
02A1 IF B 
00° TF DA 02A1 MTPR #31,S*#PRS$_IPL 
02A4 LFF 
02A4 MTPR =, S*#PRS$_IPL 
OSA -ENDC 
3F O5ae 421 PUSHR #*M<RO,R1,R2,R3,R4,R5> ; Save registers 
50 81 8F 9A 02A6 4 é MOVZBL #DYNSC. TRCMSG,RO : Get entry type code 
004F 30 OgAA 4 BSBW TRCSALCOC_ENT 3 Allocate and init next entry 
14 Al 24 AE 00 AD 424 MOVL <924>(SP), TRCESL_PC(R1) ; Copy caller's PC 
18 Al = 20 ag d0 o5e5 425 MOVL <8*4>(SP), TRC PSL(R1) ; and PSL 
10 Al 5 028 426 VL R2, TRCESL_MSGADDR(R1) : Copy message addr to trace entry 
0040 8F 28 02BB 427 MOVC3 #<TRCSC_ERTSIZ-TRCESC_MSGDATA>,~ 
20 Al $2 8 BF 4 3 (R2), TRCESC_MSGDATA(RT) ; Copy as much message as possible 
BA 02C2 4 POPR #*M<RO,R1,R2,R3,R4,R5> : Restore registers 
0 2 430 ENBINT + © : Lower IPL 
00° 8€ DA ce ae (SP)+,S*#PR$_IPL 
C7 MTPR  =—_ , S*#PRS_IPL 
34 ~ENDC 
02 c? $3! REI ; Restore PC, PSL 
05 cs i 10$: RSB 3; Return 
C9 «= 435 -DSABL LSB 
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-SBTTL TRCSLOGPC, Log PC and Registers 


: this routine logs the caller's PC, PSL, and RO-R5. 
; Inputs: 

R4 -PDT addr 
Outputs: 

Z ALL registers, PSL -Preserved 


SRE LRA E REEL EELS 
wre ealalvalvaltal slated at at at et at at at ee ee 
WNAUEWNOODNAUE WOON 


-ENABL LSB 
TRCSLOGPC:: 
2c FF6OF CF OO €1 #0, TRCSENABL,,10$ ; Branch if trace disabled 
2 Oe MOVPSL =(SP) ; Save caller's PSL 
OOOOO2FB*EF OF PUSHAL 10$ ; Save addr a. RSB 
DSBINT . ; Raise IPL to 31 
7E 00° 0B ¥ S*#PR$_IPL,-(SP) 


S“*#PRS_IPL, 


#31,S*#PRS_IPL 
MTPR =, S*#PR$_IPL 


-ENDC 
3F 6=s«wBB 459 PUSHR #*M<RO,R1,R2,R3,R4,R5> ; Save registers 
50. 82 BF 9A 460 MOVZBL #DYNSCTRCPC,RO- ; Get trace entry type code 
0016 30 461 BSBW ‘TRCSALCOC_ENT ; Allocate and init next entry 
14A1 24 AE DO 46 MOVL <984>(SP)7TRCESL_PC(R1) : Copy caller's 
18 Al 20 ae dO 46 MOVL <824>(SP), TRCESL_PSL(Ri) ; and calter's PSL 
6— 1 28 464 MOVC3 #<6#4>, (SP) ,- 3 Copy resisters from stack to 
1C Al 465 TRCESL *ROCRI) ; _to trace entry 
3F 6s 466 POPR #*M<RO{R1,R2,R3,R4,R5> ; Restore registers 
467 ENBINT "8 3; Lower IPL 
00° 8E DA ait, (SP)+,S*#PRS$_IPL 


MTPR  —_, S*#PRS_IPL 
£68 REI ; Restore PC, PSL 
479 10$: RSB ; Return to caller 
472 -DSABL LSB 
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_ PAMONIT 16-SEP-1984 01:18:17 VAX/VMS Macro V04-00 Page 23 | 
Voe-000 TRCSALLOC_ENT, ALLOCATE TRACE ENTRY mets 7 Ohi 1Bi 48 DRIVER.SRCJPAMONIT.MAR;1 . (4) 
FC 474 -SBTTL TRCSALLOC_ENT, ALLOCATE TRACE ENTRY | 
ae 
FC 233 ; This routine allocates the next trace entry. If the new entry is currently 
FC $28 ; the oldest entry on the queue (if it’s on the tail), it is removed from the 
FC 479 ; queue and inserted on the head of the queue, making it the youngest entry. 
4; oat ; The standard information is set in the entry: 
FC 4 ¢ 5 size = TRCSC_ENTSIZ 
FC ‘ 3 type = specified by caller 
FC «6484 ; time = read from interval count register (usec accuracy) 
FC 485 ; POT = RG 
FC 4 § ; 
FC 487 ; Inputs: 
| O2FC 488; 
O2FC 489; RO -Structure/trace entry type code 
| O2FC 490 ; 
O2FC 491 ; Outputs: 
| O2FC 492 ; 
O2FC 493; R1 -Addr of trace entry 
O2FC 9494 R5 : -Destroyed 
osee 495 ; Other registers -Preserved 
O2FC 496 ;- 
| Q2FC 497 
O2FC 498 -ENABL LSB 
| O2FC 499 | 
osee 209 TRCSALLOC_ENT:: 
55 FF41 CF 00 bere 206 MOVL TRCSBUFFER,RS :; Get addr of trace buffer 
51 65 00 0301 £50 MOVL (R5),R ; Get addr of next entry 
08 AS «651 «=~D1 «0304 «= 504 CMPL —«R1, TRC$Q_QHDR+#4(R5) : Is it on the tail? 
04 12 0308 #505 BNEQ 10$ ; Branch if not 
51 08865 OF Oa08 206 REMQUE @TRC$Q_QHDR+4(R5),R1 3 Remove the entry from the tail 
04 A561 E O30E 508 10$: INSQUE (R1),TRC$Q_QHDR(RS) ; Put entry on head of queue 
0060 8F C 031 509 MOVZWL  #TRCSC_ENTSIZ ; Set structure size 
08 A 0316 510 TRCESW SIZE (RI) ; 
OA Al 50 90 0318 511 MOVB RO, TRCESB_TYPE(R1 ; _and type 
00000000°GF DO O31C 216 MOVL G*EXES$GQ SYSTIME,- 3; Time stamp entry 
OC Al 0322 1 TRCESL_TIME(R1) $ 
10 Al 54 D0 0324 514 MOVL R4, TRCESL_PDT(R1) ; Save PDT addr 
65 60 Al DE 8 515 MOVAL TRCSC_ENTSIZ(R1),(R5) : Step to addr of next entry 
50 55 00001810 8F C1 C 16 ADDL #TRC$C_BUFSIZ.R5,RO 3; Compute end of buffer 
50 5 01 4 1 CMPL (R5) ,RO z Next entry at end of past it? 
4 19 7 18 BLSS 208 ; Branch if not 
65 10A5_ OE » SY MOVAL TRCSC_FIRSTENT(RS),(R5) ; Else cycle to top of buffer 
; 5 ’ : for next entry. 
| 
| 05 4 ; ¢ 208: RSB ; Return 
33€ : 4 -DSABL LSB 
33€ 5 END 
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| SSSNEWSI 

| BUGS_BADQHDR 
| CHKQ_ALT 
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EXESGOQ gee 
MONSCHKO POST 

FLAG 


$C"LENGTH 
PDT$C PARE GBASE 
PDT$C~PAREGEND 

T$C~POB 
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Sess 


PDTSL-PFAR 
POTSL— 
PDTS$L~POLLERDUE 
PDT$L~POOLDUE 
PDTSL_PP 
PDTSL-PS 
PDTSL-PSR 
PDTSL_SPTBASE 
LISPTLEN 


PPD$B-LCB_ 
PPD$B-LCB~LPORT 
PPD$B_LCB_NPORT 
PPD$B-L(B- 
PPDSB-LCB_PORT 


PPD$B-PORT 
PPD$B~PROTOCOL 
PPDSB-RSTATE 


$B7SWFLAG 
PPDSB-SYSTEMID 
PPDSB-TYPE 


SR 

| : 
194 
0 
i 
4 
Seri 
: if 
Sari 
000010C 
QOOOOEC 
i 
0000 33 
agoaoat¢ 
0000218 
09000188 
QO001F 
00001E0 
i 
90000150 
$i 
90000200 
0000019¢ 
8000570 
sa 
90000214 
sa 
QO000T9A 
0900000 
000000F 
0000034 
09000013 

natn 
000000F 
SH) 
0900000¢ 
0000000C 
Ss 
a 
o D 
B 
0000014 
Q00000A 
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! Psect synopsis ! 


| tow mena woamnacamenra $ 


PSECT name Allocation PSECT No. Attributes 

> “03 . 4444 4444 ( 3 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE 
$$$115_DRIVER QOOOOS3SE $3 of 1¢ 1.) NOPIC USR CON REL LCL NOSHR’ EXE 
SABSS 00000944 ( 2572.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR- EXE 

i en enn 

; Performance indicators H 

Phase Page faults CPU Time Elapsed Time 

Initialization ; 0:00:00.04 00:00:01.17 

Command processing 1 0:00:00.41 00:00: aoe 

Pass 31 0:00: 8-99 00:00:27.04 

Symbol table sort ? 00:00:00.70 00:00:01.80 

Pass 2 18 obs fo a 00:00:11.59 

Symbol table output 22 0:00:00.11 83:90:00 .89 

Psect synopsis output 00:00:00.01 00:00:00.01 

Cross-reference output Sho hs 00:00:00.00 

Assembler run totals 69 00:00:09.6 00:00:45.89 


The working set Limit was 1650 pages. 
66128 bytes (1350 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 652 non-local and 54 local symbols. 
525 source Lines were read in Pass 1, producing 16 object records in Pass 2. 

25 pages of virtual memory were used to define 19 macros. 
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; Macro Library statistics : 


Macro Library name Macros defined 


S555s0uAz8: 815 ops 0tB-ALB:I no 


4 
“$255$DUA28:(SYS.OBJJLIB.MLB; 1 5 
$255$0U428: (SYSLIBISTARLET.MLB;2 4 
TOTALS (all Libraries) 13 
844 GETS were required to define 13 macros. 

There were no errors, warnings or information messages. 
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